home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / gpr / gpr.bas next >
BASIC Source File  |  1994-06-01  |  2KB  |  63 lines
  1. 10 '**************************************
  2. 20 '*画像印刷ﾂｰﾙ              GPR Ver 2.0*
  3. 30 '**************************************
  4. 40 CLS
  5. 50 '*****モード設定
  6. 60 INPUT "MODE   NO.1 16     NO.2  256    NO.3 32768   ",SCR
  7. 70 IF SCR=1 THEN SCREEN@0
  8. 80 IF SCR=2 THEN SCREEN@2
  9. 90 IF SCR=3 THEN SCREEN@1
  10. 100 '*****画像ファイルの読み込み
  11. 110 PRINT "Input file name?  "
  12. 120 LINE INPUT FILENAME$
  13. 130 IF INSTR(FILENAME$,".")=0 THEN FILENAME$=FILENAME$+".TIF"
  14. 140 W$=RIGHT$(FILENAME$,4)
  15. 150 IF W$=".TIF" OR W$=".tif" THEN GOTO 160
  16. 160 LOAD@ FILENAME$
  17. 170 '*****確認
  18. 180 INPUT "この絵で良いですか?  Y/N",OK$
  19. 190 IF OK$="N" THEN GOTO 110
  20. 200 '*****画面モードによる分岐
  21. 210 IF SCR=1 OR SCR=3 THEN GOSUB *PO   '16色と32K色
  22. 220 GOTO *P256                        '256色
  23. 230 *PO
  24. 240 PRINT "*****機能****"
  25. 250 PRINT "1 16階調印刷"
  26. 260 PRINT "2 階調なし  "
  27. 270 INPUT "機能を入力して下さい   ",KI
  28. 280 IF KI=1 THEN GOTO *16P
  29. 290 GOTO *NP
  30. 300 *P256
  31. 310 PRINT "この絵を印刷します"
  32. 320  PRINT "*****機能****"
  33. 330 PRINT "1 16階調印刷"
  34. 340 PRINT "2 階調なし  "
  35. 350 INPUT "機能を入力して下さい   ",KI
  36. 360 IF KI=1 THEN GOTO *P25616
  37. 370 GOTO *NP256
  38. 380 *16P
  39. 390 CLS 1
  40. 400 HAREC 1
  41. 410 GOTO *再印刷
  42. 420 *NP
  43. 430 CLS 1
  44. 440 HARDC 3
  45. 450 GOTO RE
  46. 460 *P25616
  47. 470 CLS
  48. 480 LOAD@ FILENAME$
  49. 490 HARDC 1
  50. 500 GOTO *再印刷
  51. 510 *NP256
  52. 520 CLS
  53. 530 LOAD@ FILENAME$
  54. 540 HARDC 2
  55. 550 GOTO *再印刷
  56. 560 *再印刷
  57. 570 INPUT "もう一度印刷しますか  Y/N  ",YN$
  58. 580 IF YN$="N" THEN *JEF
  59. 590 GOTO 100
  60. 600 *JEF
  61. 610 CLS
  62. 620 END
  63.